home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dialog / dialog.frm < prev    next >
Text File  |  1994-10-18  |  8KB  |  292 lines
  1. VERSION 2.00
  2. Begin Form frmMyDialog 
  3.    BorderStyle     =   3  'Fixed Double
  4.    ClientHeight    =   3090
  5.    ClientLeft      =   1785
  6.    ClientTop       =   2205
  7.    ClientWidth     =   6480
  8.    ControlBox      =   0   'False
  9.    Height          =   3495
  10.    Left            =   1725
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3090
  15.    ScaleWidth      =   6480
  16.    Top             =   1860
  17.    Width           =   6600
  18.    Begin CommandButton CommandButton 
  19.       Caption         =   "Command1"
  20.       FontBold        =   -1  'True
  21.       FontItalic      =   0   'False
  22.       FontName        =   "System"
  23.       FontSize        =   9.75
  24.       FontStrikethru  =   0   'False
  25.       FontUnderline   =   0   'False
  26.       Height          =   465
  27.       Index           =   0
  28.       Left            =   225
  29.       TabIndex        =   0
  30.       Top             =   2475
  31.       Visible         =   0   'False
  32.       Width           =   1185
  33.    End
  34.    Begin Label pnlCaption 
  35.       Alignment       =   2  'Center
  36.       BackColor       =   &H00800000&
  37.       Caption         =   "Label1"
  38.       FontBold        =   -1  'True
  39.       FontItalic      =   0   'False
  40.       FontName        =   "System"
  41.       FontSize        =   9.75
  42.       FontStrikethru  =   0   'False
  43.       FontUnderline   =   0   'False
  44.       ForeColor       =   &H00FFFFFF&
  45.       Height          =   270
  46.       Left            =   15
  47.       TabIndex        =   2
  48.       Top             =   15
  49.       Width           =   6450
  50.    End
  51.    Begin Image imgIcon 
  52.       Height          =   480
  53.       Index           =   3
  54.       Left            =   45
  55.       Picture         =   DIALOG.FRX:0000
  56.       Top             =   1665
  57.       Visible         =   0   'False
  58.       Width           =   480
  59.    End
  60.    Begin Image imgIcon 
  61.       Height          =   480
  62.       Index           =   2
  63.       Left            =   45
  64.       Picture         =   DIALOG.FRX:083A
  65.       Top             =   1125
  66.       Visible         =   0   'False
  67.       Width           =   480
  68.    End
  69.    Begin Image imgIcon 
  70.       Height          =   480
  71.       Index           =   1
  72.       Left            =   45
  73.       Picture         =   DIALOG.FRX:1074
  74.       Top             =   585
  75.       Visible         =   0   'False
  76.       Width           =   480
  77.    End
  78.    Begin Image imgIcon 
  79.       Height          =   450
  80.       Index           =   0
  81.       Left            =   45
  82.       Picture         =   DIALOG.FRX:18AE
  83.       Top             =   90
  84.       Visible         =   0   'False
  85.       Width           =   465
  86.    End
  87.    Begin Label lblMessage 
  88.       AutoSize        =   -1  'True
  89.       Caption         =   "12"
  90.       FontBold        =   -1  'True
  91.       FontItalic      =   0   'False
  92.       FontName        =   "System"
  93.       FontSize        =   9.75
  94.       FontStrikethru  =   0   'False
  95.       FontUnderline   =   0   'False
  96.       Height          =   240
  97.       Left            =   720
  98.       TabIndex        =   1
  99.       Top             =   450
  100.       Width           =   5685
  101.       WordWrap        =   -1  'True
  102.    End
  103. End
  104. Option Explicit
  105. Dim fgParms(1 To 3) As String
  106. Dim fgintPCount As Integer
  107.  
  108. Sub CommandButton_Click (Index As Integer)
  109. Select Case Val(fgParms(2)) Mod 8
  110.     Case 0
  111.         akRetVal = 1
  112.     Case 1
  113.         Select Case Index
  114.             Case 0
  115.                 akRetVal = 1
  116.             Case 1
  117.                 akRetVal = 2
  118.         End Select
  119.         
  120.     Case 2
  121.         Select Case Index
  122.             Case 0
  123.                 akRetVal = 3
  124.             Case 1
  125.                 akRetVal = 4
  126.             Case 2
  127.                 akRetVal = 5
  128.         End Select
  129.     Case 3
  130.         Select Case Index
  131.             Case 0
  132.                 akRetVal = 6
  133.             Case 1
  134.                 akRetVal = 7
  135.             Case 2
  136.                 akRetVal = 2
  137.         End Select
  138.     Case 4
  139.         Select Case Index
  140.             Case 0
  141.                 akRetVal = 6
  142.             Case 1
  143.                 akRetVal = 7
  144.         End Select
  145.     Case 5
  146.         Select Case Index
  147.             Case 0
  148.                 akRetVal = 4
  149.             Case 1
  150.                 akRetVal = 2
  151.         End Select
  152. End Select
  153.  
  154. Unload Me
  155. End Sub
  156.  
  157. Sub Form_Activate ()
  158. Dim lNumberOfButtons As Integer
  159. Dim lFormWidth As Integer
  160. Dim lButtonMid As Integer
  161. Dim lCButton As Integer
  162. Dim lParameters As String
  163. Dim lintWhereComma As Integer
  164. Dim I%
  165. Dim lRectForm As RECT
  166. Dim lTX As Integer
  167. Dim lTY As Integer
  168. Dim lImageNumber As Integer
  169. Dim lDefButton As Integer
  170. lTX = Screen.TwipsPerPixelX
  171. lTY = Screen.TwipsPerPixelY
  172.  
  173. lParameters = Me.Tag
  174. fgintPCount = 1
  175. lintWhereComma = InStr(lParameters, ",")
  176. Do While lintWhereComma > 0
  177.     fgParms(fgintPCount) = Left$(lParameters, lintWhereComma - 1)
  178.     lParameters = Mid$(lParameters, lintWhereComma + 1)
  179.     fgintPCount = fgintPCount + 1
  180.     lintWhereComma = InStr(lParameters, ",")
  181. Loop
  182. fgParms(fgintPCount) = lParameters
  183. lImageNumber = -1
  184. Select Case Val(fgParms(2)) And (768)
  185.     Case 0
  186.         lDefButton = 0
  187.     Case 256
  188.         lDefButton = 1
  189.     Case 512
  190.         lDefButton = 2
  191. End Select
  192. Select Case Val(fgParms(2)) And (112)
  193.     Case 16
  194.         lImageNumber = 0
  195.     Case 32
  196.         lImageNumber = 1
  197.     Case 48
  198.         lImageNumber = 2
  199.     Case 64
  200.         lImageNumber = 3
  201. End Select
  202. If lImageNumber >= 0 Then
  203.     imgIcon(lImageNumber).Visible = True
  204.     imgIcon(lImageNumber).Left = 60
  205.     lblMessage.Left = 240 + (32 * lTX)
  206. End If
  207. lblMessage = fgParms(1)
  208. If lImageNumber >= 0 Then
  209.     'If lblMessage.Height > (32 * lTX) Then
  210.         imgIcon(lImageNumber).Top = lblMessage.Top + (lblMessage.Height / 2) - (imgIcon(lImageNumber).Height / 2)
  211.     'Else
  212.     '    imgIcon(lImageNumber).Top = lblMessage.Top
  213.     'End If
  214. End If
  215. Me.Height = lblMessage.Height + CommandButton(0).Height + 270 + 600
  216. CommandButton(0).Top = Me.ScaleHeight - CommandButton(0).Height - 90
  217. lRectForm.Left = Me.Left / lTX
  218. lRectForm.Top = Me.Top / lTY
  219. lRectForm.right = lRectForm.Left + Me.Width / lTX
  220. lRectForm.bottom = lRectForm.Top + Me.Height / lTY
  221. setCursorPos (lRectForm.Left + 10), (lRectForm.Top + 10)
  222. DoEvents
  223. ClipCursorRect lRectForm
  224.  
  225. If fgintPCount < 3 Then
  226.     Me!pnlCaption = app.EXEName
  227. Else
  228.     Me!pnlCaption = fgParms(3)
  229. End If
  230. If fgintPCount < 2 Then
  231.     fgParms(2) = "0"
  232. End If
  233. Select Case Val(fgParms(2)) Mod 8
  234.     Case 0
  235.         lNumberOfButtons = 1
  236.         CommandButton(0).Caption = "OK"
  237.         lDefButton = 0
  238.     Case 1
  239.         Load CommandButton(1)
  240.         CommandButton(0).Caption = "OK"
  241.         CommandButton(1).Caption = "Cancel"
  242.         If lDefButton > 1 Then
  243.             lDefButton = 0
  244.         End If
  245.         lNumberOfButtons = 2
  246.     Case 2
  247.         Load CommandButton(1)
  248.         Load CommandButton(2)
  249.         CommandButton(0).Caption = "Abort"
  250.         CommandButton(1).Caption = "Retry"
  251.         CommandButton(2).Caption = "Ignore"
  252.         lNumberOfButtons = 3
  253.     Case 3
  254.         Load CommandButton(1)
  255.         Load CommandButton(2)
  256.         CommandButton(0).Caption = "Yes"
  257.         CommandButton(1).Caption = "No"
  258.         CommandButton(2).Caption = "Cancel"
  259.         lNumberOfButtons = 3
  260.     Case 4
  261.         Load CommandButton(1)
  262.         CommandButton(0).Caption = "Yes"
  263.         CommandButton(1).Caption = "No"
  264.         lNumberOfButtons = 2
  265.         If lDefButton > 1 Then
  266.             lDefButton = 0
  267.         End If
  268.  
  269.     Case 5
  270.         Load CommandButton(1)
  271.         CommandButton(0).Caption = "Retry"
  272.         CommandButton(1).Caption = "Cancel"
  273.         lNumberOfButtons = 2
  274.         If lDefButton > 1 Then
  275.             lDefButton = 0
  276.         End If
  277.  
  278. End Select
  279. lFormWidth = Me.ScaleWidth
  280. lButtonMid = lFormWidth / (lNumberOfButtons + 1)
  281. For lCButton = 0 To lNumberOfButtons - 1
  282.     CommandButton(lCButton).Left = (lButtonMid * (lCButton + 1)) - (CommandButton(lCButton).Width / 2)
  283.     CommandButton(lCButton).Visible = True
  284. Next
  285. CommandButton(lDefButton).SetFocus
  286. End Sub
  287.  
  288. Sub Form_Unload (Cancel As Integer)
  289.     ClipCursorClear 0&
  290. End Sub
  291.  
  292.